home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / GW AdaEd 1.4.2 / GWAdaDemos / Spider / DRAW1.ADA next >
Text File  |  1994-01-11  |  247b  |  34 lines
  1. WITH Spider; Use Spider;
  2. PROCEDURE Drawing1 IS 
  3. BEGIN 
  4. Reset; 
  5. Turn;
  6. Turn;
  7. Turn;
  8. Red;
  9. Step;
  10. Step;
  11. Turn;
  12. Step;
  13. Green;
  14. Step;
  15. Step;
  16. Turn;
  17. Step;
  18. Turn;
  19. Blue;
  20. Step;
  21. Step;
  22. Turn;
  23. Turn;
  24. Turn;
  25. Step;
  26. Turn;
  27. Turn;
  28. Green;
  29. Step;
  30. Step;
  31. Step;
  32. Quit;
  33. END Drawing1; 
  34.